home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
cflow.src
< prev
next >
Wrap
Text File
|
1991-05-29
|
2KB
|
81 lines
%%HP: T(3)F(.); @ 'CFLOW' BYTES ==> #8961h 1175.5
@ CFLOW, by Ted A Smith
DIR
Total
\<< 1 \GSGet 2 \GSGet DOT
\>>
NPV
\<<
IF
I
THEN
CFEval DROP
ELSE
Total
END
\>>
NUS
\<<
IF
I
THEN
CFEval EXPM NEG / I * 100 /
ELSE
1 \GSGet 2 \GSGet \-> v c
\<< v c DOT c c 1 CON DOT 1 - / \>>
END
\>>
NFV
\<<
IF
I
THEN
CFEval EXP /
ELSE
Total
END
\>>
IRR
\<<
\<< NPV \>> 'I'
IFERR
DUP RCL
THEN
DROP 0
END
ROOT
\>>
CFEval
\<< I 100 / DUP LNP1 NEG \-> i lni
\<< \GSGet2 OBJ\-> 1 GET 2 * 2 + \-> s
\<< -1 0 s 4
FOR j
j ROLL j ROLL \-> n t v r
\<< r n + lni r * EXPM lni n * EXP * v * t + \>>
-2
STEP
i / NEG SWAP lni *
\>>
\>>
\>>
\GSGet2
\<< 1 PREDV DROP
\GSDAT DUP SIZE 1 2 PUT 0 CON
{ 1 '\GSPAR (1)' } 1 PUT
{ 2 ' \GSPAR(2)' } 1 PUT
TRN *
\>>
\GSGet
\<< 1 PREDV DROP
\GSDAT DUP SIZE 2 2 SUB 0 CON
\GSPAR 4 ROLL GET 1 PUT *
\>>
CST { { "Total" \<< Total "Total" \->TAG \>> }
{ "I" { \<< 'I' STO 'I' RCL "I" \->TAG \>>
\<< IRR "IRR" \->TAG \>>
\<< IFERR 'I' RCL THEN DROP IRR END "I" \->TAG \>> } }
{ "NPV" \<< NPV "NPV" \->TAG \>> }
{ "NUS" \<< NUS "NUS" \->TAG \>> }
{ "NFV" \<< NFV "NFV" \->TAG \>> } }
END